markov markov0
2 1D 2*lambda
1D 1 delta
1D 0 lambda
1 0 lambda
1 2 mu
0 1 mu
* Rewards for Availability 
reward
2 1
1D r
1 1
0 0
end
bind 
  mu 1
  lambda 0.001
end 

var A exrss(markov0)
var downtime 60*8760*(1-A)

* vary the reward rate r for the detection state 
loop j ,1, 10
  bind delta 360 *j
  loop i,0,1.0,0.5  
       bind r i
       expr A,downtime    
  end
end
end
